home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 101 / 101.d81 / rana boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  79 lines
  1. 100 printchr$(14)"[147]":poke53280,0:poke53281,0
  2. 110 gosub60000:gosub52000
  3. 130 sys57812"rana.font",8,0:poke780,0:poke781,64:poke782,54:sys65493
  4. 135 poke1327,50
  5. 140 sys57812"rana.ml",8,0:poke780,0:poke781,0:poke782,64:sys65493
  6. 145 poke1327,51
  7. 150 sys57812"rana.hi",8,0:poke780,0:poke781,0:poke782,144:sys65493
  8. 155 poke1327,52
  9. 160 sys57812"t.rana",8,0:poke780,0:poke781,0:poke782,128:sys65493
  10. 165 poke1327,53
  11. 170 sys57812"rana.inst",8,0:poke780,0:poke781,0:poke782,192:sys65493
  12. 171 poke1327,54
  13. 172 sys57812"rana.dsphi",8,0:poke780,0:poke781,208:poke782,151:sys65493
  14. 180 poke53272,(peek(53272)and240)or14
  15. 185 gosub50000
  16. 220 poke198,0:wait198,1:geta$
  17. 230 ifa$="[133]"then300
  18. 240 ifa$="[134]"then400
  19. 245 ifa$="[135]"then450
  20. 250 ifa$="[136]"then470
  21. 255 ifa$="q"then500
  22. 260 goto220
  23. 300 sys49152:goto185
  24. 400 poke247,0:poke248,90
  25. 410 sys16384:goto185
  26. 450 poke247,5:poke248,60
  27. 460 sys16384:goto185
  28. 470 poke247,9:poke248,45
  29. 480 sys16384:goto185
  30. 500 goto40000
  31. 580 rem
  32. 600 printtab(15)"disk error"
  33. 610 printtab(8)"hit any key to try again."
  34. 620 poke198,0:wait198,1:goto185
  35. 630 rem
  36. 10000 open15,8,15,"s0:rana boot":close15:save"rana boot",8:end
  37. 40000 a$="hello connect":fori=8to9:close2:open2,i,2:close2:ifstthen40030
  38. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  39. 40020 next:print"[147]":poke2048,0:poke44,8:poke53272,23:end
  40. 40030 poke646,peek(53281):print"[147]load"chr$(34)a$chr$(34)","i
  41. 40040 print"run":poke631,13:poke632,13:poke198,2:end
  42. 50000 print"[147]"tab(5)"[129]#$%&#$%&#$%&#$%&#$%&#$%&#$%&#$"
  43. 50010 printtab(5)"$                            #"
  44. 51000 printtab(5)"# [156][169][170][171][172][173][174][175][176][177][178][179][180][181][182][183][184][185][186][187][188][189][190][191]@ab[146] [129]$"
  45. 51005 printtab(5)"$                            #"
  46. 51010 printtab(5)"#       by gus vakalis       [129]$"
  47. 51015 printtab(5)"$                            #"
  48. 51016 printtab(5)"#$%&#$%&#$%&#$%&#$%&#$%&#$%&#$"
  49. 51020 printtab(13)"[158]copyright 1992"
  50. 51030 printtab(8)"softdisk publishing inc."
  51. 51040 print"plug joystick into port two:"
  52. 51050 printtab(10)"f1 [154]for instructions."
  53. 51060 printtab(10)"f3 [154]to play novice game."
  54. 51065 printtab(10)"f5 [154]to play intermediate game."
  55. 51070 printtab(10)"f7 [154]to play expert game."
  56. 51075 printtab(10)"q  [154]to exit to loadstar."
  57. 51080 return
  58. 51090 rem
  59. 51100 rem
  60. 52000 print""tab(10)"[204]oading file 1 of 6."
  61. 52010 return
  62. 52020 rem
  63. 52030 rem
  64. 60000 z$="                                       "
  65. 60010 poke214,10:print:print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  66. 60020 fori=0to11:printz$:next
  67. 60025 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  68. 60030 z$(0)="[210][197][211][195][213][197] [193][212] [210][193][206][193]"
  69. 60040 z$(1)="by [199]us [214]akalis"
  70. 60050 z$(2)="[214]1.0 ([195]) 1992 by [211]oftdisk, [201]nc."+chr$(13)
  71. 60060 z$(3)="[212]his program is the copyrighted work"
  72. 60070 z$(4)="of [211][207][198][212][196][201][211][203] [208][213][194][204][201][211][200][201][206][199]. [201]t is not"
  73. 60080 z$(5)="shareware or in the public domain."
  74. 60081 z$(6)="[210]eport illegal distribution of"
  75. 60082 z$(7)="this program by calling"
  76. 60083 z$(8)="1-800-831-2694 or 1-318-221-8718."
  77. 60090 poke214,12:print:fori=0to8:printtab(20-(len(z$(i))/2))""z$(i):next
  78. 60099 return
  79.